home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / envprt / raddress.frm < prev   
Text File  |  1995-05-08  |  4KB  |  143 lines
  1. VERSION 2.00
  2. Begin Form Raddress 
  3.    BackColor       =   &H00404040&
  4.    Caption         =   "Return Address"
  5.    ClientHeight    =   3195
  6.    ClientLeft      =   1725
  7.    ClientTop       =   2460
  8.    ClientWidth     =   6525
  9.    ControlBox      =   0   'False
  10.    Height          =   3600
  11.    Left            =   1665
  12.    LinkMode        =   1  'Source
  13.    LinkTopic       =   "Form2"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   3195
  17.    ScaleWidth      =   6525
  18.    Top             =   2115
  19.    Width           =   6645
  20.    Begin CommandButton StoreButton 
  21.       Caption         =   "&Done"
  22.       Height          =   380
  23.       Left            =   2640
  24.       TabIndex        =   7
  25.       Top             =   2280
  26.       Width           =   975
  27.    End
  28.    Begin TextBox Ra4 
  29.       Height          =   380
  30.       Left            =   480
  31.       TabIndex        =   3
  32.       Top             =   1680
  33.       Width           =   3255
  34.    End
  35.    Begin TextBox Ra3 
  36.       Height          =   380
  37.       Left            =   480
  38.       TabIndex        =   2
  39.       Top             =   1200
  40.       Width           =   3255
  41.    End
  42.    Begin TextBox Ra2 
  43.       Height          =   380
  44.       Left            =   480
  45.       TabIndex        =   1
  46.       Top             =   720
  47.       Width           =   3255
  48.    End
  49.    Begin Frame Frame1 
  50.       BackColor       =   &H0000FF00&
  51.       Caption         =   "Use Return Address"
  52.       Height          =   1220
  53.       Left            =   3840
  54.       TabIndex        =   4
  55.       Top             =   360
  56.       Width           =   1935
  57.       Begin OptionButton NoButton 
  58.          BackColor       =   &H0000FF00&
  59.          Caption         =   "&No"
  60.          Height          =   260
  61.          Left            =   240
  62.          TabIndex        =   6
  63.          Top             =   720
  64.          Width           =   975
  65.       End
  66.       Begin OptionButton YesButton 
  67.          BackColor       =   &H0000FF00&
  68.          Caption         =   "&Yes"
  69.          Height          =   260
  70.          Left            =   240
  71.          TabIndex        =   5
  72.          Top             =   360
  73.          Value           =   -1  'True
  74.          Width           =   1095
  75.       End
  76.    End
  77.    Begin TextBox Ra1 
  78.       Height          =   380
  79.       Left            =   480
  80.       TabIndex        =   0
  81.       Top             =   240
  82.       Width           =   3255
  83.    End
  84. End
  85. Sub NoButton_Click ()
  86.     UseRa = 0
  87.  
  88. End Sub
  89.  
  90. Sub Ra1_KeyPress (keyascii As Integer)
  91.     If keyascii = 13 Then
  92.     keyascii = 0
  93.     SendKeys "{TAB}"
  94.     End If
  95. End Sub
  96.  
  97. Sub Ra2_KeyPress (keyascii As Integer)
  98.     If keyascii = 13 Then
  99.     keyascii = 0
  100.     SendKeys "{TAB}"
  101.     End If
  102.  
  103. End Sub
  104.  
  105. Sub Ra3_KeyPress (keyascii As Integer)
  106.     If keyascii = 13 Then
  107.     keyascii = 0
  108.     SendKeys "{TAB}"
  109.     End If
  110.  
  111. End Sub
  112.  
  113. Sub Ra4_KeyPress (keyascii As Integer)
  114.     If keyascii = 13 Then
  115.     keyascii = 0
  116.     Ra1.SetFocus
  117.     End If
  118.  
  119. End Sub
  120.  
  121. Sub StoreButton_Click ()
  122.     If YesButton.value = True Then UseRa = -1 Else UseRa = 0
  123.     If UseRa <> 0 And Len(RTrim$(LTrim$(Ra1.text))) > 0 Then
  124.        Form1.r1.caption = Ra1.text
  125.        Form1.r2.caption = Ra2.text
  126.        Form1.r3.caption = Ra3.text
  127.        Form1.R4.caption = Ra4.text
  128.     Else
  129.     Form1.r1.caption = "No Return Address"
  130.     Form1.r2.caption = ""
  131.     Form1.r3.caption = ""
  132.     Form1.r3.caption = ""
  133.  
  134.     End If
  135.     Ra1.SetFocus
  136.     Raddress.Hide
  137. End Sub
  138.  
  139. Sub YesButton_Click ()
  140.     UseRa = -1
  141.     End Sub
  142.  
  143.